HeiBe Erotik/HeiBe Erotik.iso/erovoll/symphony/_setup.1/EroticSymphony.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-09-17 | 9KB | 480 lines

object Form1: TForm1
  Left = 63
  Top = 20
  Width = 708
  Height = 571
  AutoSize = True
  Caption = 'Erotic Symphony V1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 700
    Height = 525
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object ThumbView1: TThumbView
    Left = 225
    Top = 188
    Width = 249
    Height = 249
    Bevel = False
    BackColor = clBlack
    OnClick = ThumbView1Click
  end
  object s1: TImage
    Tag = 1
    Left = 593
    Top = 172
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s2: TImage
    Tag = 2
    Left = 564
    Top = 225
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s3: TImage
    Tag = 3
    Left = 617
    Top = 225
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s4: TImage
    Tag = 4
    Left = 540
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s5: TImage
    Tag = 5
    Left = 592
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s6: TImage
    Tag = 6
    Left = 645
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s7: TImage
    Tag = 7
    Left = 564
    Top = 330
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s8: TImage
    Tag = 8
    Left = 617
    Top = 330
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object s9: TImage
    Tag = 9
    Left = 592
    Top = 382
    Width = 32
    Height = 32
    Transparent = True
    OnMouseUp = s1MouseUp
  end
  object v9: TImage
    Left = 73
    Top = 382
    Width = 32
    Height = 32
    Transparent = True
  end
  object v7: TImage
    Left = 44
    Top = 330
    Width = 32
    Height = 32
    Transparent = True
  end
  object v8: TImage
    Left = 97
    Top = 330
    Width = 32
    Height = 32
    Transparent = True
  end
  object v4: TImage
    Left = 20
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
  end
  object v5: TImage
    Left = 73
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
  end
  object v6: TImage
    Left = 125
    Top = 277
    Width = 32
    Height = 32
    Transparent = True
  end
  object v3: TImage
    Left = 97
    Top = 225
    Width = 32
    Height = 32
    Transparent = True
  end
  object v2: TImage
    Left = 44
    Top = 225
    Width = 32
    Height = 32
    Transparent = True
  end
  object v1: TImage
    Left = 73
    Top = 172
    Width = 32
    Height = 32
    Transparent = True
  end
  object igelb: TImage
    Left = 301
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Transparent = True
  end
  object irot: TImage
    Left = 403
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Transparent = True
  end
  object iblau: TImage
    Left = 266
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    Transparent = True
  end
  object iviolett: TImage
    Left = 437
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    Transparent = True
  end
  object igruen: TImage
    Left = 369
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image005.bmp>}
    Transparent = True
  end
  object iaqua: TImage
    Left = 232
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image006.bmp>}
    Transparent = True
  end
  object igrau: TImage
    Left = 335
    Top = 153
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image007.bmp>}
    Transparent = True
  end
  object Label1: TLabel
    Left = 8
    Top = 488
    Width = 60
    Height = 19
    Caption = 'Punkte:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 256
    Top = 488
    Width = 54
    Height = 19
    Caption = 'Leben:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 536
    Top = 488
    Width = 44
    Height = 19
    Caption = 'Z�ge:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object ibuf: TImage
    Left = 416
    Top = 5
    Width = 32
    Height = 32
    AutoSize = True
    Transparent = True
    Visible = False
  end
  object BKG: TImage
    Left = 376
    Top = 5
    Width = 32
    Height = 32
    AutoSize = True
    Transparent = True
    Visible = False
  end
  object Label4: TLabel
    Left = 60
    Top = 140
    Width = 64
    Height = 13
    Caption = 'Ihre Aufgabe:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 584
    Top = 140
    Width = 43
    Height = 13
    Caption = 'Spielfeld:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object ppunkte: TPanel
    Left = 72
    Top = 480
    Width = 105
    Height = 36
    Alignment = taRightJustify
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object pleben: TPanel
    Left = 312
    Top = 480
    Width = 105
    Height = 36
    Alignment = taRightJustify
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object pzuege: TPanel
    Left = 584
    Top = 480
    Width = 105
    Height = 36
    Alignment = taRightJustify
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 104
    object Spiel1: TMenuItem
      Caption = '&Spiel'
      object Neu1: TMenuItem
        Caption = '&Neu'
        OnClick = Neu1Click
      end
      object Highscoreanzeigen1: TMenuItem
        Caption = '&Highscore anzeigen'
        OnClick = Highscoreanzeigen1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Beenden1: TMenuItem
        Caption = '&Beenden'
        OnClick = Beenden1Click
      end
    end
    object Optionen1: TMenuItem
      Caption = '&Optionen'
      object Schwierigkeitsgrad1: TMenuItem
        Caption = 'Schwierigkeits&grad'
        object Leicht1: TMenuItem
          Tag = 40
          Caption = '&Leicht (40 Z�ge)'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = Leicht1Click
        end
        object Mittel1: TMenuItem
          Tag = 30
          Caption = '&Mittel (30 Z�ge)'
          GroupIndex = 1
          RadioItem = True
          OnClick = Leicht1Click
        end